/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / D-G / DropInfo.sit / DropInfo ƒ / DI_P / DSUtils.p

< prev

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 44 53 55 74 69 6c | 73 2e 70 00 00 00 00 00 |..DSUtil|s.p.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 26 66 00 | 00 0d 50 a5 6b 30 bb a5 |.....&f.|..P.k0..|
|00000060| 6b 30 bb 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |k0......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 88 fb 00 00 |........|........|
|00000080| 7b 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |{*******|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|000000d0| 2a 2a 0d 2a 2a 20 20 50 | 72 6f 6a 65 63 74 20 4e |**.**  P|roject N|
|000000e0| 61 6d 65 3a 09 44 72 6f | 70 53 68 65 6c 6c 0d 2a |ame:.Dro|pShell.*|
|000000f0| 2a 20 20 20 20 20 46 69 | 6c 65 20 4e 61 6d 65 3a |*     Fi|le Name:|
|00000100| 09 44 53 55 74 69 6c 73 | 2e 70 0d 2a 2a 0d 2a 2a |.DSUtils|.p.**.**|
|00000110| 20 20 20 44 65 73 63 72 | 69 70 74 69 6f 6e 3a 09 |   Descr|iption:.|
|00000120| 55 74 69 6c 69 74 79 20 | 72 6f 75 74 69 6e 65 73 |Utility |routines|
|00000130| 20 74 68 61 74 20 6d 61 | 79 20 62 65 20 75 73 65 | that ma|y be use|
|00000140| 66 75 6c 20 74 6f 20 44 | 72 6f 70 42 6f 78 65 73 |ful to D|ropBoxes|
|00000150| 0d 2a 2a 0d 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.**.****|********|
|00000160| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000170| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000180| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000190| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001a0| 2a 2a 2a 0d 2a 2a 20 20 | 20 20 20 20 20 20 20 20 |***.**  |        |
|000001b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 41 20 55 |        |     A U|
|000001c0| 20 54 20 48 20 4f 20 52 | 20 20 20 49 20 44 20 45 | T H O R|   I D E|
|000001d0| 20 4e 20 54 20 49 20 54 | 20 59 0d 2a 2a 2a 2a 2a | N T I T| Y.*****|
|000001e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000200| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000210| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000220| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 2a 2a 0d 2a 2a |********|**.**.**|
|00000230| 09 49 6e 69 74 69 61 6c | 73 09 4e 61 6d 65 0d 2a |.Initial|s.Name.*|
|00000240| 2a 09 2d 2d 2d 2d 2d 2d | 2d 2d 09 2d 2d 2d 2d 2d |*.------|--.-----|
|00000250| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000260| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000270| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 2a 2a 09 4c 44 |--------|--.**.LD|
|00000280| 52 09 09 09 4c 65 6f 6e | 61 72 64 20 52 6f 73 65 |R...Leon|ard Rose|
|00000290| 6e 74 68 6f 6c 0d 2a 2a | 0d 2a 2a 2a 2a 2a 2a 2a |nthol.**|.*******|
|000002a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002e0| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 2a 2a 20 20 20 20 20 |********|.**     |
|000002f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000300| 20 52 20 45 20 56 20 49 | 20 53 20 49 20 4f 20 4e | R E V I| S I O N|
|00000310| 20 20 20 48 20 49 20 53 | 20 54 20 4f 20 52 20 59 |   H I S| T O R Y|
|00000320| 0d 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.*******|********|
|00000330| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000340| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000350| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000360| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000370| 0d 2a 2a 0d 2a 2a 09 20 | 20 44 61 74 65 09 09 54 |.**.**. | Date..T|
|00000380| 69 6d 65 09 41 75 74 68 | 6f 72 09 44 65 73 63 72 |ime.Auth|or.Descr|
|00000390| 69 70 74 69 6f 6e 0d 2a | 2a 09 2d 2d 2d 2d 2d 2d |iption.*|*.------|
|000003a0| 2d 2d 09 2d 2d 2d 2d 2d | 09 2d 2d 2d 2d 2d 2d 09 |--.-----|.------.|
|000003b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 2a 2a |--------|-----.**|
|000003e0| 09 31 32 2f 30 39 2f 39 | 31 09 09 09 4c 44 52 09 |.12/09/9|1...LDR.|
|000003f0| 09 41 64 64 65 64 20 74 | 68 65 20 41 70 70 6c 65 |.Added t|he Apple|
|00000400| 20 65 76 65 6e 74 20 72 | 6f 75 74 69 6e 65 73 0d | event r|outines.|
|00000410| 2a 2a 09 31 31 2f 32 34 | 2f 39 31 09 09 09 4c 44 |**.11/24|/91...LD|
|00000420| 52 09 09 4f 72 69 67 69 | 6e 61 6c 20 56 65 72 73 |R..Origi|nal Vers|
|00000430| 69 6f 6e 0d 2a 2a 0d 2a | 2a 2a 2a 2a 2a 2a 2a 2a |ion.**.*|********|
|00000440| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000450| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000460| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000470| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000480| 2a 2a 2a 2a 2a 7d 0d 55 | 4e 49 54 20 44 53 55 74 |*****}.U|NIT DSUt|
|00000490| 69 6c 73 3b 0d 49 4e 54 | 45 52 46 41 43 45 0d 0d |ils;.INT|ERFACE..|
|000004a0| 7b 24 49 46 43 20 54 48 | 49 4e 4b 5f 50 61 73 63 |{$IFC TH|INK_Pasc|
|000004b0| 61 6c 7d 0d 09 55 53 45 | 53 0d 09 09 41 6c 69 61 |al}..USE|S...Alia|
|000004c0| 73 65 73 2c 20 41 70 70 | 6c 65 45 76 65 6e 74 73 |ses, App|leEvents|
|000004d0| 2c 20 50 50 43 54 6f 6f | 6c 62 6f 78 2c 20 50 72 |, PPCToo|lbox, Pr|
|000004e0| 6f 63 65 73 73 65 73 2c | 20 53 63 72 69 70 74 2c |ocesses,| Script,|
|000004f0| 20 44 53 47 6c 6f 62 61 | 6c 73 3b 09 7b 6a 75 73 | DSGloba|ls;.{jus|
|00000500| 74 20 74 68 65 20 44 72 | 6f 70 53 68 65 6c 6c 20 |t the Dr|opShell |
|00000510| 66 69 6c 65 73 7d 0d 7b | 24 45 4c 53 45 43 7d 0d |files}.{|$ELSEC}.|
|00000520| 09 55 53 45 53 0d 09 7b | 20 46 69 72 73 74 20 6c |.USES..{| First l|
|00000530| 6f 61 64 20 73 74 61 6e | 64 61 72 64 20 69 6e 74 |oad stan|dard int|
|00000540| 65 72 66 61 63 65 20 66 | 69 6c 65 73 7d 0d 09 09 |erface f|iles}...|
|00000550| 4d 65 6d 54 79 70 65 73 | 2c 20 51 75 69 63 6b 44 |MemTypes|, QuickD|
|00000560| 72 61 77 2c 20 0d 0d 09 | 7b 20 4e 6f 77 20 69 6e |raw, ...|{ Now in|
|00000570| 63 6c 75 64 65 20 74 68 | 65 20 73 74 75 66 66 20 |clude th|e stuff |
|00000580| 66 72 6f 6d 20 4f 53 49 | 6e 74 66 20 7d 0d 09 09 |from OSI|ntf }...|
|00000590| 4f 53 49 6e 74 66 2c 20 | 0d 0d 09 7b 20 4e 6f 77 |OSIntf, |...{ Now|
|000005a0| 20 49 6e 63 6c 75 64 65 | 20 74 68 65 20 73 74 75 | Include| the stu|
|000005b0| 66 66 20 66 72 6f 6d 20 | 54 6f 6f 6c 49 6e 74 66 |ff from |ToolIntf|
|000005c0| 2e 70 20 7d 0d 09 09 54 | 6f 6f 6c 49 6e 74 66 2c |.p }...T|oolIntf,|
|000005d0| 20 50 61 63 6b 61 67 65 | 73 2c 20 47 65 73 74 61 | Package|s, Gesta|
|000005e0| 6c 74 45 71 75 2c 20 0d | 0d 09 7b 20 54 68 65 6e |ltEqu, .|..{ Then|
|000005f0| 20 61 6e 79 20 4f 54 48 | 45 52 20 54 6f 6f 6c 62 | any OTH|ER Toolb|
|00000600| 6f 78 20 69 6e 74 65 72 | 66 61 63 65 73 2e 2e 2e |ox inter|faces...|
|00000610| 20 7d 0d 09 09 46 69 6c | 65 73 2c 20 41 6c 69 61 | }...Fil|es, Alia|
|00000620| 73 65 73 2c 20 41 70 70 | 6c 65 45 76 65 6e 74 73 |ses, App|leEvents|
|00000630| 2c 20 50 50 43 54 6f 6f | 6c 62 6f 78 2c 20 50 72 |, PPCToo|lbox, Pr|
|00000640| 6f 63 65 73 73 65 73 2c | 20 0d 0d 09 7b 20 41 6e |ocesses,| ...{ An|
|00000650| 64 20 66 69 6e 61 6c 6c | 79 20 61 6e 79 20 66 69 |d finall|y any fi|
|00000660| 6c 65 73 20 66 72 6f 6d | 20 44 72 6f 70 53 68 65 |les from| DropShe|
|00000670| 6c 6c 20 7d 0d 09 09 44 | 53 47 6c 6f 62 61 6c 73 |ll }...D|SGlobals|
|00000680| 3b 0d 7b 24 45 4e 44 43 | 20 54 48 49 4e 4b 5f 50 |;.{$ENDC| THINK_P|
|00000690| 61 73 63 61 6c 7d 0d 0d | 7b 2d 2d 2d 2d 2d 2d 2d |ascal}..|{-------|
|000006a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 7d 0d |--------|------}.|
|000006b0| 7b 49 6e 74 65 72 66 61 | 63 65 20 44 65 66 69 6e |{Interfa|ce Defin|
|000006c0| 69 74 69 6f 6e 73 7d 0d | 7b 2d 2d 2d 2d 2d 2d 2d |itions}.|{-------|
|000006d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 7d 0d |--------|------}.|
|000006e0| 0d 09 50 52 4f 43 45 44 | 55 52 45 20 43 65 6e 74 |..PROCED|URE Cent|
|000006f0| 65 72 41 6c 65 72 74 20 | 28 74 68 65 49 44 3a 20 |erAlert |(theID: |
|00000700| 69 6e 74 65 67 65 72 29 | 3b 0d 09 50 52 4f 43 45 |integer)|;..PROCE|
|00000710| 44 55 52 45 20 45 72 72 | 6f 72 41 6c 65 72 74 20 |DURE Err|orAlert |
|00000720| 28 73 74 72 69 6e 67 4c | 69 73 74 49 44 2c 20 73 |(stringL|istID, s|
|00000730| 74 72 69 6e 67 49 6e 64 | 65 78 49 44 2c 20 65 72 |tringInd|exID, er|
|00000740| 72 6f 72 49 44 3a 20 69 | 6e 74 65 67 65 72 29 3b |rorID: i|nteger);|
|00000750| 0d 0d 09 50 52 4f 43 45 | 44 55 52 45 20 47 65 74 |...PROCE|DURE Get|
|00000760| 41 70 70 4e 61 6d 65 20 | 28 56 41 52 20 61 70 70 |AppName |(VAR app|
|00000770| 4e 61 6d 65 3a 20 53 74 | 72 32 35 35 29 3b 0d 09 |Name: St|r255);..|
|00000780| 50 52 4f 43 45 44 55 52 | 45 20 47 65 74 41 70 70 |PROCEDUR|E GetApp|
|00000790| 46 53 53 70 65 63 20 28 | 56 41 52 20 61 70 70 53 |FSSpec (|VAR appS|
|000007a0| 70 65 63 3a 20 46 53 53 | 70 65 63 29 3b 0d 0d 09 |pec: FSS|pec);...|
|000007b0| 46 55 4e 43 54 49 4f 4e | 20 47 65 74 54 61 72 67 |FUNCTION| GetTarg|
|000007c0| 65 74 46 72 6f 6d 53 65 | 6c 66 20 28 56 41 52 20 |etFromSe|lf (VAR |
|000007d0| 74 61 72 67 65 74 44 65 | 73 63 3a 20 41 45 41 64 |targetDe|sc: AEAd|
|000007e0| 64 72 65 73 73 44 65 73 | 63 29 3a 20 4f 53 45 72 |dressDes|c): OSEr|
|000007f0| 72 3b 0d 09 46 55 4e 43 | 54 49 4f 4e 20 47 65 74 |r;..FUNC|TION Get|
|00000800| 54 61 72 67 65 74 46 72 | 6f 6d 53 69 67 6e 61 74 |TargetFr|omSignat|
|00000810| 75 72 65 20 28 70 72 6f | 63 65 73 73 53 69 67 3a |ure (pro|cessSig:|
|00000820| 20 4f 53 54 79 70 65 3b | 20 56 41 52 20 74 61 72 | OSType;| VAR tar|
|00000830| 67 65 74 44 65 73 63 3a | 20 41 45 41 64 64 72 65 |getDesc:| AEAddre|
|00000840| 73 73 44 65 73 63 29 3a | 20 4f 53 45 72 72 3b 0d |ssDesc):| OSErr;.|
|00000850| 09 46 55 4e 43 54 49 4f | 4e 20 47 65 74 54 61 72 |.FUNCTIO|N GetTar|
|00000860| 67 65 74 46 72 6f 6d 42 | 72 6f 77 73 65 72 20 28 |getFromB|rowser (|
|00000870| 70 72 6f 6d 70 74 53 74 | 72 3a 20 53 74 72 32 35 |promptSt|r: Str25|
|00000880| 35 3b 20 56 41 52 20 74 | 61 72 67 65 74 44 65 73 |5; VAR t|argetDes|
|00000890| 63 3a 20 41 45 41 64 64 | 72 65 73 73 44 65 73 63 |c: AEAdd|ressDesc|
|000008a0| 29 3a 20 4f 53 45 72 72 | 3b 0d 0d 09 50 52 4f 43 |): OSErr|;...PROC|
|000008b0| 45 44 55 52 45 20 53 65 | 6e 64 4f 44 4f 43 54 6f |EDURE Se|ndODOCTo|
|000008c0| 53 65 6c 66 20 28 74 68 | 65 46 69 6c 65 53 70 65 |Self (th|eFileSpe|
|000008d0| 63 3a 20 46 53 53 70 65 | 63 29 3b 0d 09 50 52 4f |c: FSSpe|c);..PRO|
|000008e0| 43 45 44 55 52 45 20 53 | 65 6e 64 51 75 69 74 54 |CEDURE S|endQuitT|
|000008f0| 6f 53 65 6c 66 3b 0d 0d | 49 4d 50 4c 45 4d 45 4e |oSelf;..|IMPLEMEN|
|00000900| 54 41 54 49 4f 4e 0d 7b | 24 53 20 55 74 69 6c 73 |TATION.{|$S Utils|
|00000910| 7d 0d 0d 09 7b 0d 09 09 | 54 68 69 73 20 72 6f 75 |}...{...|This rou|
|00000920| 74 69 6e 65 20 69 73 20 | 75 73 65 64 20 74 6f 20 |tine is |used to |
|00000930| 70 72 6f 70 65 72 6c 79 | 20 63 65 6e 74 65 72 20 |properly| center |
|00000940| 61 6e 20 41 6c 65 72 74 | 20 62 65 66 6f 72 65 20 |an Alert| before |
|00000950| 73 68 6f 77 69 6e 67 2e | 0d 09 09 0d 09 09 49 74 |showing.|......It|
|00000960| 20 69 73 20 70 65 72 20 | 48 75 6d 61 6e 20 49 6e | is per |Human In|
|00000970| 74 65 72 66 61 63 65 20 | 73 70 65 63 73 20 62 79 |terface |specs by|
|00000980| 20 70 75 74 74 69 6e 67 | 20 69 74 20 69 6e 20 74 | putting| it in t|
|00000990| 68 65 20 74 6f 70 20 31 | 2f 33 20 6f 66 20 73 63 |he top 1|/3 of sc|
|000009a0| 72 65 65 6e 2e 0d 09 09 | 4e 4f 54 45 3a 20 54 68 |reen....|NOTE: Th|
|000009b0| 69 73 20 73 61 6d 65 20 | 74 65 63 68 6e 69 71 75 |is same |techniqu|
|000009c0| 65 20 63 61 6e 20 62 65 | 20 75 73 65 64 20 77 69 |e can be| used wi|
|000009d0| 74 68 20 44 4c 4f 47 20 | 72 65 73 6f 75 72 63 65 |th DLOG |resource|
|000009e0| 73 20 61 73 20 77 65 6c | 6c 2e 0d 09 7d 09 0d 09 |s as wel|l...}...|
|000009f0| 50 52 4f 43 45 44 55 52 | 45 20 43 65 6e 74 65 72 |PROCEDUR|E Center|
|00000a00| 41 6c 65 72 74 20 28 74 | 68 65 49 44 3a 20 69 6e |Alert (t|heID: in|
|00000a10| 74 65 67 65 72 29 3b 0d | 09 09 56 41 52 0d 09 09 |teger);.|..VAR...|
|00000a20| 09 74 68 65 58 2c 20 74 | 68 65 59 3a 20 49 4e 54 |.theX, t|heY: INT|
|00000a30| 45 47 45 52 3b 0d 09 09 | 09 74 68 65 41 6c 65 72 |EGER;...|.theAler|
|00000a40| 74 48 61 6e 64 6c 65 3a | 20 41 6c 65 72 74 54 48 |tHandle:| AlertTH|
|00000a50| 6e 64 6c 3b 0d 09 42 45 | 47 49 4e 0d 09 09 74 68 |ndl;..BE|GIN...th|
|00000a60| 65 41 6c 65 72 74 48 61 | 6e 64 6c 65 20 3a 3d 20 |eAlertHa|ndle := |
|00000a70| 41 6c 65 72 74 54 48 6e | 64 6c 28 47 65 74 52 65 |AlertTHn|dl(GetRe|
|00000a80| 73 6f 75 72 63 65 28 27 | 41 4c 52 54 27 2c 20 74 |source('|ALRT', t|
|00000a90| 68 65 49 44 29 29 3b 0d | 09 09 49 46 20 74 68 65 |heID));.|..IF the|
|00000aa0| 41 6c 65 72 74 48 61 6e | 64 6c 65 20 3c 3e 20 4e |AlertHan|dle <> N|
|00000ab0| 49 4c 20 54 48 45 4e 0d | 09 09 42 45 47 49 4e 0d |IL THEN.|..BEGIN.|
|00000ac0| 09 09 09 48 4c 6f 63 6b | 28 48 61 6e 64 6c 65 28 |...HLock|(Handle(|
|00000ad0| 74 68 65 41 6c 65 72 74 | 48 61 6e 64 6c 65 29 29 |theAlert|Handle))|
|00000ae0| 3b 0d 09 09 09 57 49 54 | 48 20 74 68 65 41 6c 65 |;....WIT|H theAle|
|00000af0| 72 74 48 61 6e 64 6c 65 | 5e 5e 20 44 4f 0d 09 09 |rtHandle|^^ DO...|
|00000b00| 09 42 45 47 49 4e 0d 09 | 09 09 09 57 49 54 48 20 |.BEGIN..|...WITH |
|00000b10| 73 63 72 65 65 6e 42 69 | 74 73 20 44 4f 0d 09 09 |screenBi|ts DO...|
|00000b20| 09 09 42 45 47 49 4e 0d | 09 09 09 09 09 74 68 65 |..BEGIN.|.....the|
|00000b30| 58 20 3a 3d 20 28 28 62 | 6f 75 6e 64 73 2e 72 69 |X := ((b|ounds.ri|
|00000b40| 67 68 74 20 2d 20 62 6f | 75 6e 64 73 2e 6c 65 66 |ght - bo|unds.lef|
|00000b50| 74 29 20 2d 20 28 62 6f | 75 6e 64 73 52 65 63 74 |t) - (bo|undsRect|
|00000b60| 2e 72 69 67 68 74 20 2d | 20 62 6f 75 6e 64 73 52 |.right -| boundsR|
|00000b70| 65 63 74 2e 6c 65 66 74 | 29 29 20 44 49 56 20 32 |ect.left|)) DIV 2|
|00000b80| 3b 0d 09 09 09 09 09 74 | 68 65 59 20 3a 3d 20 28 |;......t|heY := (|
|00000b90| 28 62 6f 75 6e 64 73 2e | 62 6f 74 74 6f 6d 20 2d |(bounds.|bottom -|
|00000ba0| 20 62 6f 75 6e 64 73 2e | 74 6f 70 29 20 2b 20 47 | bounds.|top) + G|
|00000bb0| 65 74 4d 42 61 72 48 65 | 69 67 68 74 20 2d 20 28 |etMBarHe|ight - (|
|00000bc0| 62 6f 75 6e 64 73 52 65 | 63 74 2e 62 6f 74 74 6f |boundsRe|ct.botto|
|00000bd0| 6d 20 2d 20 62 6f 75 6e | 64 73 52 65 63 74 2e 74 |m - boun|dsRect.t|
|00000be0| 6f 70 29 29 20 44 49 56 | 20 32 3b 0d 09 09 09 09 |op)) DIV| 2;.....|
|00000bf0| 09 74 68 65 59 20 3a 3d | 20 74 68 65 59 20 2d 20 |.theY :=| theY - |
|00000c00| 28 28 62 6f 75 6e 64 73 | 2e 62 6f 74 74 6f 6d 20 |((bounds|.bottom |
|00000c10| 2d 20 62 6f 75 6e 64 73 | 2e 74 6f 70 29 20 44 49 |- bounds|.top) DI|
|00000c20| 56 20 34 29 3b 09 7b 74 | 68 69 73 20 6d 6f 76 65 |V 4);.{t|his move|
|00000c30| 73 20 69 74 20 75 70 20 | 66 6f 72 20 62 65 74 74 |s it up |for bett|
|00000c40| 65 72 20 76 69 65 77 69 | 6e 67 21 7d 0d 09 09 09 |er viewi|ng!}....|
|00000c50| 09 45 4e 44 3b 0d 09 09 | 09 09 4f 66 66 73 65 74 |.END;...|..Offset|
|00000c60| 52 65 63 74 28 62 6f 75 | 6e 64 73 52 65 63 74 2c |Rect(bou|ndsRect,|
|00000c70| 20 74 68 65 58 20 2d 20 | 62 6f 75 6e 64 73 52 65 | theX - |boundsRe|
|00000c80| 63 74 2e 6c 65 66 74 2c | 20 74 68 65 59 20 2d 20 |ct.left,| theY - |
|00000c90| 62 6f 75 6e 64 73 52 65 | 63 74 2e 74 6f 70 29 3b |boundsRe|ct.top);|
|00000ca0| 0d 09 09 09 45 4e 44 3b | 0d 09 09 45 4e 44 3b 0d |....END;|...END;.|
|00000cb0| 09 09 53 65 74 43 75 72 | 73 6f 72 28 61 72 72 6f |..SetCur|sor(arro|
|00000cc0| 77 29 3b 09 7b 69 66 20 | 79 6f 75 20 75 73 65 20 |w);.{if |you use |
|00000cd0| 74 68 69 73 20 72 6f 75 | 74 69 6e 65 20 69 6e 20 |this rou|tine in |
|00000ce0| 61 20 63 6f 64 65 20 72 | 65 73 6f 75 72 63 65 2c |a code r|esource,|
|00000cf0| 20 63 68 61 6e 67 65 20 | 74 68 69 73 21 7d 0d 09 | change |this!}..|
|00000d00| 45 4e 44 3b 0d 0d 09 7b | 0d 09 09 54 68 69 73 20 |END;...{|...This |
|00000d10| 72 6f 75 74 69 6e 65 20 | 69 73 20 6a 75 73 74 20 |routine |is just |
|00000d20| 61 20 71 75 69 63 6b 20 | 26 20 64 69 72 74 79 20 |a quick |& dirty |
|00000d30| 65 72 72 6f 72 20 72 65 | 70 6f 72 74 65 72 0d 09 |error re|porter..|
|00000d40| 7d 0d 09 50 52 4f 43 45 | 44 55 52 45 20 45 72 72 |}..PROCE|DURE Err|
|00000d50| 6f 72 41 6c 65 72 74 20 | 28 73 74 72 69 6e 67 4c |orAlert |(stringL|
|00000d60| 69 73 74 49 44 2c 20 73 | 74 72 69 6e 67 49 6e 64 |istID, s|tringInd|
|00000d70| 65 78 49 44 2c 20 65 72 | 72 6f 72 49 44 3a 20 69 |exID, er|rorID: i|
|00000d80| 6e 74 65 67 65 72 29 3b | 0d 09 09 43 4f 4e 53 54 |nteger);|...CONST|
|00000d90| 0d 09 09 09 61 6c 65 72 | 74 49 44 20 3d 20 32 30 |....aler|tID = 20|
|00000da0| 30 3b 0d 09 09 56 41 52 | 0d 09 09 09 69 74 65 6d |0;...VAR|....item|
|00000db0| 3a 20 69 6e 74 65 67 65 | 72 3b 0d 09 09 09 70 61 |: intege|r;....pa|
|00000dc0| 72 61 6d 2c 20 65 72 72 | 6f 72 53 74 72 3a 20 53 |ram, err|orStr: S|
|00000dd0| 74 72 32 35 35 3b 0d 09 | 42 45 47 49 4e 0d 09 09 |tr255;..|BEGIN...|
|00000de0| 4e 75 6d 54 6f 53 74 72 | 69 6e 67 28 65 72 72 6f |NumToStr|ing(erro|
|00000df0| 72 49 44 2c 20 65 72 72 | 6f 72 53 74 72 29 3b 0d |rID, err|orStr);.|
|00000e00| 09 09 47 65 74 49 6e 64 | 53 74 72 69 6e 67 28 70 |..GetInd|String(p|
|00000e10| 61 72 61 6d 2c 20 73 74 | 72 69 6e 67 4c 69 73 74 |aram, st|ringList|
|00000e20| 49 44 2c 20 73 74 72 69 | 6e 67 49 6e 64 65 78 49 |ID, stri|ngIndexI|
|00000e30| 44 29 3b 0d 09 09 50 61 | 72 61 6d 54 65 78 74 28 |D);...Pa|ramText(|
|00000e40| 70 61 72 61 6d 2c 20 65 | 72 72 6f 72 53 74 72 2c |param, e|rrorStr,|
|00000e50| 20 27 27 2c 20 27 27 29 | 3b 0d 09 09 43 65 6e 74 | '', '')|;...Cent|
|00000e60| 65 72 41 6c 65 72 74 28 | 61 6c 65 72 74 49 44 29 |erAlert(|alertID)|
|00000e70| 3b 0d 09 09 69 74 65 6d | 20 3a 3d 20 41 6c 65 72 |;...item| := Aler|
|00000e80| 74 28 61 6c 65 72 74 49 | 44 2c 20 4e 49 4c 29 3b |t(alertI|D, NIL);|
|00000e90| 0d 09 45 4e 44 3b 0d 0d | 7b 2a 2a 2a 20 54 68 65 |..END;..|{*** The|
|00000ea0| 73 65 20 72 6f 75 74 69 | 6e 65 73 20 75 73 65 20 |se routi|nes use |
|00000eb0| 74 68 65 20 50 72 6f 63 | 65 73 73 20 4d 61 6e 61 |the Proc|ess Mana|
|00000ec0| 67 65 72 20 74 6f 20 67 | 69 76 65 20 79 6f 75 20 |ger to g|ive you |
|00000ed0| 69 6e 66 6f 72 6d 61 74 | 69 6f 6e 20 61 62 6f 75 |informat|ion abou|
|00000ee0| 74 20 79 6f 75 72 73 65 | 6c 66 20 2a 2a 2a 7d 0d |t yourse|lf ***}.|
|00000ef0| 0d 09 50 52 4f 43 45 44 | 55 52 45 20 47 65 74 41 |..PROCED|URE GetA|
|00000f00| 70 70 4e 61 6d 65 20 28 | 56 41 52 20 61 70 70 4e |ppName (|VAR appN|
|00000f10| 61 6d 65 3a 20 53 74 72 | 32 35 35 29 3b 0d 09 09 |ame: Str|255);...|
|00000f20| 56 41 52 0d 09 09 09 65 | 72 72 3a 20 4f 53 45 72 |VAR....e|rr: OSEr|
|00000f30| 72 3b 0d 09 09 09 69 6e | 66 6f 3a 20 50 72 6f 63 |r;....in|fo: Proc|
|00000f40| 65 73 73 49 6e 66 6f 52 | 65 63 3b 0d 09 09 09 63 |essInfoR|ec;....c|
|00000f50| 75 72 50 53 4e 3a 20 50 | 72 6f 63 65 73 73 53 65 |urPSN: P|rocessSe|
|00000f60| 72 69 61 6c 4e 75 6d 62 | 65 72 3b 0d 09 42 45 47 |rialNumb|er;..BEG|
|00000f70| 49 4e 0d 09 09 65 72 72 | 20 3a 3d 20 47 65 74 43 |IN...err| := GetC|
|00000f80| 75 72 72 65 6e 74 50 72 | 6f 63 65 73 73 28 63 75 |urrentPr|ocess(cu|
|00000f90| 72 50 53 4e 29 3b 0d 0d | 09 09 57 49 54 48 20 69 |rPSN);..|..WITH i|
|00000fa0| 6e 66 6f 20 44 4f 0d 09 | 09 42 45 47 49 4e 0d 09 |nfo DO..|.BEGIN..|
|00000fb0| 09 09 70 72 6f 63 65 73 | 73 49 6e 66 6f 4c 65 6e |..proces|sInfoLen|
|00000fc0| 67 74 68 20 3a 3d 20 73 | 69 7a 65 6f 66 28 50 72 |gth := s|izeof(Pr|
|00000fd0| 6f 63 65 73 73 49 6e 66 | 6f 52 65 63 29 3b 09 7b |ocessInf|oRec);.{|
|00000fe0| 41 4c 57 41 59 53 20 55 | 53 45 20 73 69 7a 65 6f |ALWAYS U|SE sizeo|
|00000ff0| 66 21 7d 0d 09 09 09 70 | 72 6f 63 65 73 73 4e 61 |f!}....p|rocessNa|
|00001000| 6d 65 20 3a 3d 20 40 61 | 70 70 4e 61 6d 65 3b 09 |me := @a|ppName;.|
|00001010| 09 09 09 09 09 7b 73 6f | 20 69 74 20 72 65 74 75 |.....{so| it retu|
|00001020| 72 6e 65 64 20 73 6f 6d | 65 77 68 65 72 65 7d 0d |rned som|ewhere}.|
|00001030| 09 09 09 70 72 6f 63 65 | 73 73 41 70 70 53 70 65 |...proce|ssAppSpe|
|00001040| 63 20 3a 3d 20 4e 49 4c | 3b 09 09 09 09 09 09 09 |c := NIL|;.......|
|00001050| 7b 49 20 64 6f 6e 27 74 | 20 63 61 72 65 21 7d 0d |{I don't| care!}.|
|00001060| 09 09 45 4e 44 3b 0d 09 | 09 65 72 72 20 3a 3d 20 |..END;..|.err := |
|00001070| 47 65 74 50 72 6f 63 65 | 73 73 49 6e 66 6f 72 6d |GetProce|ssInform|
|00001080| 61 74 69 6f 6e 28 63 75 | 72 50 53 4e 2c 20 69 6e |ation(cu|rPSN, in|
|00001090| 66 6f 29 3b 0d 09 45 4e | 44 3b 0d 0d 09 50 52 4f |fo);..EN|D;...PRO|
|000010a0| 43 45 44 55 52 45 20 47 | 65 74 41 70 70 46 53 53 |CEDURE G|etAppFSS|
|000010b0| 70 65 63 20 28 56 41 52 | 20 61 70 70 53 70 65 63 |pec (VAR| appSpec|
|000010c0| 3a 20 46 53 53 70 65 63 | 29 3b 0d 09 09 56 41 52 |: FSSpec|);...VAR|
|000010d0| 0d 09 09 09 65 72 72 3a | 20 4f 53 45 72 72 3b 0d |....err:| OSErr;.|
|000010e0| 09 09 09 69 6e 66 6f 3a | 20 50 72 6f 63 65 73 73 |...info:| Process|
|000010f0| 49 6e 66 6f 52 65 63 3b | 0d 09 09 09 61 70 70 4e |InfoRec;|....appN|
|00001100| 61 6d 65 3a 20 53 74 72 | 32 35 35 3b 0d 09 09 09 |ame: Str|255;....|
|00001110| 63 75 72 50 53 4e 3a 20 | 50 72 6f 63 65 73 73 53 |curPSN: |ProcessS|
|00001120| 65 72 69 61 6c 4e 75 6d | 62 65 72 3b 0d 09 42 45 |erialNum|ber;..BE|
|00001130| 47 49 4e 0d 09 09 65 72 | 72 20 3a 3d 20 47 65 74 |GIN...er|r := Get|
|00001140| 43 75 72 72 65 6e 74 50 | 72 6f 63 65 73 73 28 63 |CurrentP|rocess(c|
|00001150| 75 72 50 53 4e 29 3b 0d | 0d 09 09 57 49 54 48 20 |urPSN);.|...WITH |
|00001160| 69 6e 66 6f 20 44 4f 0d | 09 09 42 45 47 49 4e 0d |info DO.|..BEGIN.|
|00001170| 09 09 09 70 72 6f 63 65 | 73 73 49 6e 66 6f 4c 65 |...proce|ssInfoLe|
|00001180| 6e 67 74 68 20 3a 3d 20 | 73 69 7a 65 6f 66 28 50 |ngth := |sizeof(P|
|00001190| 72 6f 63 65 73 73 49 6e | 66 6f 52 65 63 29 3b 09 |rocessIn|foRec);.|
|000011a0| 7b 41 4c 57 41 59 53 20 | 55 53 45 20 73 69 7a 65 |{ALWAYS |USE size|
|000011b0| 6f 66 21 7d 0d 09 09 09 | 70 72 6f 63 65 73 73 4e |of!}....|processN|
|000011c0| 61 6d 65 20 3a 3d 20 40 | 61 70 70 4e 61 6d 65 3b |ame := @|appName;|
|000011d0| 09 09 09 09 09 09 7b 73 | 6f 20 69 74 20 72 65 74 |......{s|o it ret|
|000011e0| 75 72 6e 65 64 20 73 6f | 6d 65 77 68 65 72 65 7d |urned so|mewhere}|
|000011f0| 0d 09 09 09 70 72 6f 63 | 65 73 73 41 70 70 53 70 |....proc|essAppSp|
|00001200| 65 63 20 3a 3d 20 40 61 | 70 70 53 70 65 63 3b 09 |ec := @a|ppSpec;.|
|00001210| 09 09 09 09 09 7b 61 6e | 64 20 68 65 72 65 27 73 |.....{an|d here's|
|00001220| 20 77 68 65 72 65 20 74 | 68 65 20 73 70 65 63 20 | where t|he spec |
|00001230| 67 6f 65 73 7d 0d 09 09 | 45 4e 44 3b 0d 09 09 65 |goes}...|END;...e|
|00001240| 72 72 20 3a 3d 20 47 65 | 74 50 72 6f 63 65 73 73 |rr := Ge|tProcess|
|00001250| 49 6e 66 6f 72 6d 61 74 | 69 6f 6e 28 63 75 72 50 |Informat|ion(curP|
|00001260| 53 4e 2c 20 69 6e 66 6f | 29 3b 0d 09 45 4e 44 3b |SN, info|);..END;|
|00001270| 0d 0d 0d 7b 20 a5 a5 a5 | 20 41 70 70 6c 65 20 65 |...{ ...| Apple e|
|00001280| 76 65 6e 74 20 72 6f 75 | 74 69 6e 65 73 20 62 65 |vent rou|tines be|
|00001290| 67 69 6e 20 68 65 72 65 | 20 a5 a5 a5 20 7d 0d 0d |gin here| ... }..|
|000012a0| 7b 0d 09 54 68 69 73 20 | 72 6f 75 74 69 6e 65 20 |{..This |routine |
|000012b0| 77 69 6c 6c 20 63 72 65 | 61 74 65 20 61 20 74 61 |will cre|ate a ta|
|000012c0| 72 67 65 74 44 65 73 63 | 20 66 6f 72 20 73 65 6e |rgetDesc| for sen|
|000012d0| 64 69 6e 67 20 74 6f 20 | 73 65 6c 66 2e 0d 0d 09 |ding to |self....|
|000012e0| 57 65 20 74 61 6b 65 20 | 49 4d 20 56 49 27 73 20 |We take |IM VI's |
|000012f0| 61 64 76 69 63 65 20 61 | 6e 64 20 75 73 65 20 74 |advice a|nd use t|
|00001300| 68 65 20 74 79 70 65 50 | 53 4e 20 66 6f 72 6d 20 |he typeP|SN form |
|00001310| 77 69 74 68 20 0d 09 6b | 43 75 72 72 65 6e 74 50 |with ..k|CurrentP|
|00001320| 72 6f 63 65 73 73 20 61 | 73 20 74 68 65 20 74 61 |rocess a|s the ta|
|00001330| 72 67 65 74 50 53 4e 2e | 0d 7d 0d 09 46 55 4e 43 |rgetPSN.|.}..FUNC|
|00001340| 54 49 4f 4e 20 47 65 74 | 54 61 72 67 65 74 46 72 |TION Get|TargetFr|
|00001350| 6f 6d 53 65 6c 66 20 28 | 56 41 52 20 74 61 72 67 |omSelf (|VAR targ|
|00001360| 65 74 44 65 73 63 3a 20 | 41 45 41 64 64 72 65 73 |etDesc: |AEAddres|
|00001370| 73 44 65 73 63 29 3a 20 | 4f 53 45 72 72 3b 0d 09 |sDesc): |OSErr;..|
|00001380| 09 56 41 52 0d 09 09 09 | 65 72 72 3a 20 4f 53 45 |.VAR....|err: OSE|
|00001390| 72 72 3b 0d 09 09 09 70 | 73 6e 3a 20 50 72 6f 63 |rr;....p|sn: Proc|
|000013a0| 65 73 73 53 65 72 69 61 | 6c 4e 75 6d 62 65 72 3b |essSeria|lNumber;|
|000013b0| 0d 09 42 45 47 49 4e 0d | 09 09 57 49 54 48 20 70 |..BEGIN.|..WITH p|
|000013c0| 73 6e 20 44 4f 0d 09 09 | 42 45 47 49 4e 0d 09 09 |sn DO...|BEGIN...|
|000013d0| 09 68 69 67 68 4c 6f 6e | 67 4f 66 50 53 4e 20 3a |.highLon|gOfPSN :|
|000013e0| 3d 20 30 3b 0d 09 09 09 | 6c 6f 77 4c 6f 6e 67 4f |= 0;....|lowLongO|
|000013f0| 66 50 53 4e 20 3a 3d 20 | 6b 43 75 72 72 65 6e 74 |fPSN := |kCurrent|
|00001400| 50 72 6f 63 65 73 73 3b | 0d 09 09 45 4e 44 3b 0d |Process;|...END;.|
|00001410| 09 09 65 72 72 20 3a 3d | 20 41 45 43 72 65 61 74 |..err :=| AECreat|
|00001420| 65 44 65 73 63 28 74 79 | 70 65 50 72 6f 63 65 73 |eDesc(ty|peProces|
|00001430| 73 53 65 72 69 61 6c 4e | 75 6d 62 65 72 2c 20 40 |sSerialN|umber, @|
|00001440| 70 73 6e 2c 20 73 69 7a | 65 6f 66 28 50 72 6f 63 |psn, siz|eof(Proc|
|00001450| 65 73 73 53 65 72 69 61 | 6c 4e 75 6d 62 65 72 29 |essSeria|lNumber)|
|00001460| 2c 20 74 61 72 67 65 74 | 44 65 73 63 29 3b 0d 09 |, target|Desc);..|
|00001470| 09 47 65 74 54 61 72 67 | 65 74 46 72 6f 6d 53 65 |.GetTarg|etFromSe|
|00001480| 6c 66 20 3a 3d 20 65 72 | 72 3b 0d 09 45 4e 44 3b |lf := er|r;..END;|
|00001490| 0d 0d 7b 54 68 69 73 20 | 72 6f 75 74 69 6e 65 20 |..{This |routine |
|000014a0| 77 69 6c 6c 20 63 72 65 | 61 74 65 20 61 20 74 61 |will cre|ate a ta|
|000014b0| 72 67 65 74 44 65 73 63 | 20 75 73 69 6e 67 20 74 |rgetDesc| using t|
|000014c0| 68 65 20 61 70 70 73 20 | 73 69 67 6e 61 74 75 72 |he apps |signatur|
|000014d0| 65 7d 0d 09 46 55 4e 43 | 54 49 4f 4e 20 47 65 74 |e}..FUNC|TION Get|
|000014e0| 54 61 72 67 65 74 46 72 | 6f 6d 53 69 67 6e 61 74 |TargetFr|omSignat|
|000014f0| 75 72 65 20 28 70 72 6f | 63 65 73 73 53 69 67 3a |ure (pro|cessSig:|
|00001500| 20 4f 53 54 79 70 65 3b | 20 56 41 52 20 74 61 72 | OSType;| VAR tar|
|00001510| 67 65 74 44 65 73 63 3a | 20 41 45 41 64 64 72 65 |getDesc:| AEAddre|
|00001520| 73 73 44 65 73 63 29 3a | 20 4f 53 45 72 72 3b 0d |ssDesc):| OSErr;.|
|00001530| 09 09 56 41 52 0d 09 09 | 09 65 72 72 3a 20 4f 53 |..VAR...|.err: OS|
|00001540| 45 72 72 3b 0d 0d 09 42 | 45 47 49 4e 0d 09 09 65 |Err;...B|EGIN...e|
|00001550| 72 72 20 3a 3d 20 41 45 | 43 72 65 61 74 65 44 65 |rr := AE|CreateDe|
|00001560| 73 63 28 74 79 70 65 41 | 70 70 6c 53 69 67 6e 61 |sc(typeA|pplSigna|
|00001570| 74 75 72 65 2c 20 40 70 | 72 6f 63 65 73 73 53 49 |ture, @p|rocessSI|
|00001580| 47 2c 20 73 69 7a 65 6f | 66 28 70 72 6f 63 65 73 |G, sizeo|f(proces|
|00001590| 73 53 69 67 29 2c 20 74 | 61 72 67 65 74 44 65 73 |sSig), t|argetDes|
|000015a0| 63 29 3b 0d 09 09 47 65 | 74 54 61 72 67 65 74 46 |c);...Ge|tTargetF|
|000015b0| 72 6f 6d 53 69 67 6e 61 | 74 75 72 65 20 3a 3d 20 |romSigna|ture := |
|000015c0| 65 72 72 3b 0d 09 45 4e | 44 3b 0d 0d 7b 54 68 69 |err;..EN|D;..{Thi|
|000015d0| 73 20 72 6f 75 74 69 6e | 65 20 77 69 6c 6c 20 63 |s routin|e will c|
|000015e0| 72 65 61 74 65 20 61 20 | 74 61 72 67 65 74 44 65 |reate a |targetDe|
|000015f0| 73 63 20 62 79 20 62 72 | 69 6e 67 69 6e 67 20 75 |sc by br|inging u|
|00001600| 70 20 74 68 65 20 50 50 | 43 42 72 6f 77 73 65 72 |p the PP|CBrowser|
|00001610| 7d 0d 09 46 55 4e 43 54 | 49 4f 4e 20 47 65 74 54 |}..FUNCT|ION GetT|
|00001620| 61 72 67 65 74 46 72 6f | 6d 42 72 6f 77 73 65 72 |argetFro|mBrowser|
|00001630| 20 28 70 72 6f 6d 70 74 | 53 74 72 3a 20 53 74 72 | (prompt|Str: Str|
|00001640| 32 35 35 3b 20 56 41 52 | 20 74 61 72 67 65 74 44 |255; VAR| targetD|
|00001650| 65 73 63 3a 20 41 45 41 | 64 64 72 65 73 73 44 65 |esc: AEA|ddressDe|
|00001660| 73 63 29 3a 20 4f 53 45 | 72 72 3b 0d 09 09 56 41 |sc): OSE|rr;...VA|
|00001670| 52 0d 09 09 09 65 72 72 | 3a 20 4f 53 45 72 72 3b |R....err|: OSErr;|
|00001680| 0d 09 09 09 74 68 65 54 | 61 72 67 65 74 3a 20 54 |....theT|arget: T|
|00001690| 61 72 67 65 74 49 44 3b | 0d 09 09 09 70 6f 72 74 |argetID;|....port|
|000016a0| 49 6e 66 6f 3a 20 50 6f | 72 74 49 6e 66 6f 52 65 |Info: Po|rtInfoRe|
|000016b0| 63 3b 0d 0d 09 42 45 47 | 49 4e 0d 09 09 65 72 72 |c;...BEG|IN...err|
|000016c0| 20 3a 3d 20 50 50 43 42 | 72 6f 77 73 65 72 28 70 | := PPCB|rowser(p|
|000016d0| 72 6f 6d 70 74 53 74 72 | 2c 20 27 27 2c 20 46 41 |romptStr|, '', FA|
|000016e0| 4c 53 45 2c 20 74 68 65 | 54 61 72 67 65 74 2e 6c |LSE, the|Target.l|
|000016f0| 6f 63 61 74 69 6f 6e 2c | 20 70 6f 72 74 49 6e 66 |ocation,| portInf|
|00001700| 6f 2c 20 4e 49 4c 2c 20 | 27 27 29 3b 0d 09 09 49 |o, NIL, |'');...I|
|00001710| 46 20 28 65 72 72 20 3d | 20 6e 6f 45 72 72 29 20 |F (err =| noErr) |
|00001720| 54 48 45 4e 0d 09 09 42 | 45 47 49 4e 0d 09 09 09 |THEN...B|EGIN....|
|00001730| 74 68 65 54 61 72 67 65 | 74 2e 6e 61 6d 65 20 3a |theTarge|t.name :|
|00001740| 3d 20 70 6f 72 74 49 6e | 66 6f 2e 6e 61 6d 65 3b |= portIn|fo.name;|
|00001750| 0d 09 09 09 65 72 72 20 | 3a 3d 20 41 45 43 72 65 |....err |:= AECre|
|00001760| 61 74 65 44 65 73 63 28 | 74 79 70 65 54 61 72 67 |ateDesc(|typeTarg|
|00001770| 65 74 49 44 2c 20 40 74 | 68 65 54 61 72 67 65 74 |etID, @t|heTarget|
|00001780| 2c 20 73 69 7a 65 6f 66 | 28 54 61 72 67 65 74 49 |, sizeof|(TargetI|
|00001790| 44 29 2c 20 74 61 72 67 | 65 74 44 65 73 63 29 3b |D), targ|etDesc);|
|000017a0| 0d 09 09 45 4e 44 3b 0d | 09 09 47 65 74 54 61 72 |...END;.|..GetTar|
|000017b0| 67 65 74 46 72 6f 6d 42 | 72 6f 77 73 65 72 20 3a |getFromB|rowser :|
|000017c0| 3d 20 65 72 72 3b 0d 09 | 45 4e 44 3b 0d 0d 0d 7b |= err;..|END;...{|
|000017d0| 0d 09 54 68 69 73 20 72 | 6f 75 74 69 6e 65 20 69 |..This r|outine i|
|000017e0| 73 20 74 68 65 20 6c 6f | 77 20 6c 65 76 65 6c 20 |s the lo|w level |
|000017f0| 72 6f 75 74 69 6e 65 20 | 75 73 65 64 20 62 79 20 |routine |used by |
|00001800| 74 68 65 20 53 65 6e 64 | 4f 44 4f 43 54 6f 53 65 |the Send|ODOCToSe|
|00001810| 6c 66 0d 09 72 6f 75 74 | 69 6e 65 2e 20 20 49 74 |lf..rout|ine.  It|
|00001820| 20 67 65 74 73 20 70 61 | 73 73 65 64 20 74 68 65 | gets pa|ssed the|
|00001830| 20 6c 69 73 74 20 6f 66 | 20 66 69 6c 65 73 20 28 | list of| files (|
|00001840| 69 6e 20 61 6e 20 41 45 | 44 65 73 63 4c 69 73 74 |in an AE|DescList|
|00001850| 29 0d 09 74 6f 20 62 65 | 20 73 65 6e 74 20 61 73 |)..to be| sent as|
|00001860| 20 74 68 65 20 64 61 74 | 61 20 66 6f 72 20 74 68 | the dat|a for th|
|00001870| 65 20 27 6f 64 6f 63 27 | 2c 20 62 75 69 6c 64 73 |e 'odoc'|, builds|
|00001880| 20 75 70 20 74 68 65 20 | 65 76 65 6e 74 0d 09 61 | up the |event..a|
|00001890| 6e 64 20 73 65 6e 64 73 | 20 6f 66 66 20 74 68 65 |nd sends| off the|
|000018a0| 20 65 76 65 6e 74 2e 20 | 20 0d 0d 09 49 74 20 69 | event. | ...It i|
|000018b0| 73 20 62 72 6f 6b 65 6e | 20 6f 75 74 20 66 72 6f |s broken| out fro|
|000018c0| 6d 20 53 65 6e 64 4f 44 | 4f 43 54 6f 53 65 6c 66 |m SendOD|OCToSelf|
|000018d0| 20 73 6f 20 74 68 61 74 | 20 61 20 53 65 6e 64 4f | so that| a SendO|
|000018e0| 44 4f 43 4c 69 73 74 54 | 6f 53 65 6c 66 20 63 6f |DOCListT|oSelf co|
|000018f0| 75 6c 64 0d 09 65 61 73 | 69 6c 79 20 62 65 20 77 |uld..eas|ily be w|
|00001900| 72 69 74 74 65 6e 20 61 | 6e 64 20 69 74 20 63 6f |ritten a|nd it co|
|00001910| 75 6c 64 20 74 68 65 6e | 20 63 61 6c 6c 20 74 68 |uld then| call th|
|00001920| 69 73 20 72 6f 75 74 69 | 6e 65 20 2d 20 62 75 74 |is routi|ne - but|
|00001930| 20 74 68 61 74 20 69 73 | 20 6c 65 66 74 0d 09 61 | that is| left..a|
|00001940| 73 20 61 6e 20 65 78 65 | 72 63 69 73 65 20 74 6f |s an exe|rcise to|
|00001950| 20 74 68 65 20 72 65 61 | 64 65 72 2e 0d 09 0d 09 | the rea|der.....|
|00001960| 52 65 61 64 20 74 68 65 | 20 63 6f 6d 6d 65 6e 74 |Read the| comment|
|00001970| 73 20 69 6e 20 74 68 65 | 20 63 6f 64 65 20 66 6f |s in the| code fo|
|00001980| 72 20 74 68 65 20 6f 72 | 64 65 72 20 61 6e 64 20 |r the or|der and |
|00001990| 64 65 74 61 69 6c 73 0d | 7d 0d 09 50 52 4f 43 45 |details.|}..PROCE|
|000019a0| 44 55 52 45 20 5f 53 65 | 6e 64 44 6f 63 73 54 6f |DURE _Se|ndDocsTo|
|000019b0| 53 65 6c 66 20 28 61 6c | 69 61 73 4c 69 73 74 3a |Self (al|iasList:|
|000019c0| 20 41 45 44 65 73 63 4c | 69 73 74 29 3b 0d 09 09 | AEDescL|ist);...|
|000019d0| 56 41 52 0d 09 09 09 65 | 72 72 3a 20 4f 53 45 72 |VAR....e|rr: OSEr|
|000019e0| 72 3b 0d 09 09 09 74 68 | 65 54 61 72 67 65 74 3a |r;....th|eTarget:|
|000019f0| 20 41 45 41 64 64 72 65 | 73 73 44 65 73 63 3b 0d | AEAddre|ssDesc;.|
|00001a00| 09 09 09 6f 70 65 6e 44 | 6f 63 41 45 3a 20 41 70 |...openD|ocAE: Ap|
|00001a10| 70 6c 65 45 76 65 6e 74 | 3b 0d 09 09 09 72 65 70 |pleEvent|;....rep|
|00001a20| 6c 79 41 45 3a 20 41 70 | 70 6c 65 45 76 65 6e 74 |lyAE: Ap|pleEvent|
|00001a30| 3b 0d 0d 09 42 45 47 49 | 4e 0d 09 7b 0d 09 09 46 |;...BEGI|N..{...F|
|00001a40| 69 72 73 74 20 77 65 20 | 63 72 65 61 74 65 20 74 |irst we |create t|
|00001a50| 68 65 20 74 61 72 67 65 | 74 20 66 6f 72 20 74 68 |he targe|t for th|
|00001a60| 65 20 65 76 65 6e 74 2e | 20 20 20 57 65 20 63 61 |e event.|   We ca|
|00001a70| 6c 6c 20 61 6e 6f 74 68 | 65 72 0d 09 09 75 74 69 |ll anoth|er...uti|
|00001a80| 6c 69 74 79 20 72 6f 75 | 74 69 6e 65 20 66 6f 72 |lity rou|tine for|
|00001a90| 20 63 72 65 61 74 69 6e | 67 20 74 68 65 20 74 61 | creatin|g the ta|
|00001aa0| 72 67 65 74 2e 0d 09 7d | 0d 09 09 65 72 72 20 3a |rget...}|...err :|
|00001ab0| 3d 20 47 65 74 54 61 72 | 67 65 74 46 72 6f 6d 53 |= GetTar|getFromS|
|00001ac0| 65 6c 66 28 74 68 65 54 | 61 72 67 65 74 29 3b 0d |elf(theT|arget);.|
|00001ad0| 09 09 49 46 20 28 65 72 | 72 20 3d 20 6e 6f 45 72 |..IF (er|r = noEr|
|00001ae0| 72 29 20 54 48 45 4e 0d | 09 09 42 45 47 49 4e 0d |r) THEN.|..BEGIN.|
|00001af0| 09 09 7b 4e 65 78 74 20 | 77 65 20 63 72 65 61 74 |..{Next |we creat|
|00001b00| 65 20 74 68 65 20 41 70 | 70 6c 65 20 65 76 65 6e |e the Ap|ple even|
|00001b10| 74 20 74 68 61 74 20 77 | 69 6c 6c 20 6c 61 74 65 |t that w|ill late|
|00001b20| 72 20 67 65 74 20 73 65 | 6e 74 2e 7d 0d 09 09 09 |r get se|nt.}....|
|00001b30| 65 72 72 20 3a 3d 20 41 | 45 43 72 65 61 74 65 41 |err := A|ECreateA|
|00001b40| 70 70 6c 65 45 76 65 6e | 74 28 6b 43 6f 72 65 45 |ppleEven|t(kCoreE|
|00001b50| 76 65 6e 74 43 6c 61 73 | 73 2c 20 6b 41 45 4f 70 |ventClas|s, kAEOp|
|00001b60| 65 6e 44 6f 63 75 6d 65 | 6e 74 73 2c 20 74 68 65 |enDocume|nts, the|
|00001b70| 54 61 72 67 65 74 2c 20 | 6b 41 75 74 6f 47 65 6e |Target, |kAutoGen|
|00001b80| 65 72 61 74 65 52 65 74 | 75 72 6e 49 44 2c 20 6b |erateRet|urnID, k|
|00001b90| 41 6e 79 54 72 61 6e 73 | 61 63 74 69 6f 6e 49 44 |AnyTrans|actionID|
|00001ba0| 2c 20 6f 70 65 6e 44 6f | 63 41 45 29 3b 0d 0d 09 |, openDo|cAE);...|
|00001bb0| 09 09 49 46 20 65 72 72 | 20 3d 20 6e 6f 45 72 72 |..IF err| = noErr|
|00001bc0| 20 54 48 45 4e 0d 09 09 | 09 42 45 47 49 4e 0d 09 | THEN...|.BEGIN..|
|00001bd0| 09 09 7b 4e 6f 77 20 61 | 64 64 20 74 68 65 20 61 |..{Now a|dd the a|
|00001be0| 6c 69 61 73 44 65 73 63 | 4c 69 73 74 20 74 6f 20 |liasDesc|List to |
|00001bf0| 74 68 65 20 6f 70 65 6e | 44 6f 63 41 45 7d 0d 09 |the open|DocAE}..|
|00001c00| 09 09 09 65 72 72 20 3a | 3d 20 41 45 50 75 74 50 |...err :|= AEPutP|
|00001c10| 61 72 61 6d 44 65 73 63 | 28 6f 70 65 6e 44 6f 63 |aramDesc|(openDoc|
|00001c20| 41 45 2c 20 6b 65 79 44 | 69 72 65 63 74 4f 62 6a |AE, keyD|irectObj|
|00001c30| 65 63 74 2c 20 61 6c 69 | 61 73 4c 69 73 74 29 3b |ect, ali|asList);|
|00001c40| 0d 0d 09 09 09 09 49 46 | 20 65 72 72 20 3d 20 6e |......IF| err = n|
|00001c50| 6f 45 72 72 20 54 48 45 | 4e 0d 09 09 09 09 42 45 |oErr THE|N.....BE|
|00001c60| 47 49 4e 0d 09 09 09 09 | 7b 0d 09 09 09 09 09 61 |GIN.....|{......a|
|00001c70| 6e 64 20 66 69 6e 61 6c | 6c 79 20 73 65 6e 64 20 |nd final|ly send |
|00001c80| 74 68 65 20 65 76 65 6e | 74 0d 09 09 09 09 09 53 |the even|t......S|
|00001c90| 69 6e 63 65 20 77 65 20 | 61 72 65 20 73 65 6e 64 |ince we |are send|
|00001ca0| 69 6e 67 20 74 6f 20 6f | 75 72 73 65 6c 76 65 73 |ing to o|urselves|
|00001cb0| 2c 20 6e 6f 20 6e 65 65 | 64 20 66 6f 72 20 72 65 |, no nee|d for re|
|00001cc0| 70 6c 79 2e 0d 09 09 09 | 09 7d 0d 09 09 09 09 09 |ply.....|.}......|
|00001cd0| 65 72 72 20 3a 3d 20 41 | 45 53 65 6e 64 28 6f 70 |err := A|ESend(op|
|00001ce0| 65 6e 44 6f 63 41 45 2c | 20 72 65 70 6c 79 41 45 |enDocAE,| replyAE|
|00001cf0| 2c 20 6b 41 45 4e 6f 52 | 65 70 6c 79 20 2b 20 6b |, kAENoR|eply + k|
|00001d00| 41 45 43 61 6e 49 6e 74 | 65 72 61 63 74 2c 20 6b |AECanInt|eract, k|
|00001d10| 41 45 4e 6f 72 6d 61 6c | 50 72 69 6f 72 69 74 79 |AENormal|Priority|
|00001d20| 2c 20 33 36 30 30 2c 20 | 4e 49 4c 2c 20 4e 49 4c |, 3600, |NIL, NIL|
|00001d30| 29 3b 0d 0d 09 09 09 09 | 7b 0d 09 09 09 09 09 4e |);......|{......N|
|00001d40| 4f 54 45 3a 20 53 69 6e | 63 65 20 77 65 20 61 72 |OTE: Sin|ce we ar|
|00001d50| 65 20 6e 6f 74 20 72 65 | 71 75 65 73 74 69 6e 67 |e not re|questing|
|00001d60| 20 61 20 72 65 70 6c 79 | 2c 20 77 65 20 64 6f 20 | a reply|, we do |
|00001d70| 6e 6f 74 20 6e 65 65 64 | 20 74 6f 0d 09 09 09 09 |not need| to.....|
|00001d80| 09 6e 65 65 64 20 74 6f | 20 64 69 73 70 6f 73 65 |.need to| dispose|
|00001d90| 20 6f 66 20 74 68 65 20 | 72 65 70 6c 79 41 45 2e | of the |replyAE.|
|00001da0| 20 20 49 74 20 69 73 20 | 74 68 65 72 65 20 73 69 |  It is |there si|
|00001db0| 6d 70 6c 79 20 61 73 20 | 61 20 0d 09 09 09 09 09 |mply as |a ......|
|00001dc0| 70 6c 61 63 65 68 6f 6c | 64 65 72 2e 0d 09 09 09 |placehol|der.....|
|00001dd0| 09 7d 0d 09 09 09 09 45 | 4e 44 3b 0d 0d 09 09 09 |.}.....E|ND;.....|
|00001de0| 7b 09 0d 09 09 09 09 44 | 69 73 70 6f 73 65 20 6f |{......D|ispose o|
|00001df0| 66 20 74 68 65 20 61 6c | 69 61 73 4c 69 73 74 20 |f the al|iasList |
|00001e00| 64 65 73 63 72 69 70 74 | 6f 72 0d 09 09 09 09 57 |descript|or.....W|
|00001e10| 65 20 64 6f 20 74 68 69 | 73 20 69 6e 73 74 65 61 |e do thi|s instea|
|00001e20| 64 20 6f 66 20 74 68 65 | 20 63 61 6c 6c 65 72 20 |d of the| caller |
|00001e30| 73 69 6e 63 65 20 69 74 | 20 6e 65 65 64 73 20 74 |since it| needs t|
|00001e40| 6f 20 62 65 20 64 6f 6e | 65 0d 09 09 09 09 62 65 |o be don|e.....be|
|00001e50| 66 6f 72 65 20 64 69 73 | 70 6f 73 69 6e 67 20 74 |fore dis|posing t|
|00001e60| 68 65 20 41 45 56 54 0d | 09 09 09 7d 0d 09 09 09 |he AEVT.|...}....|
|00001e70| 09 65 72 72 20 3a 3d 20 | 41 45 44 69 73 70 6f 73 |.err := |AEDispos|
|00001e80| 65 44 65 73 63 28 61 6c | 69 61 73 4c 69 73 74 29 |eDesc(al|iasList)|
|00001e90| 3b 0d 09 09 09 45 4e 44 | 3b 0d 0d 09 09 7b 61 6e |;....END|;....{an|
|00001ea0| 64 20 6f 66 20 63 6f 75 | 72 73 65 20 64 69 73 70 |d of cou|rse disp|
|00001eb0| 6f 73 65 20 6f 66 20 74 | 68 65 20 6f 70 65 6e 44 |ose of t|he openD|
|00001ec0| 6f 63 20 41 45 56 54 20 | 69 74 73 65 6c 66 7d 0d |oc AEVT |itself}.|
|00001ed0| 09 09 09 65 72 72 20 3a | 3d 20 41 45 44 69 73 70 |...err :|= AEDisp|
|00001ee0| 6f 73 65 44 65 73 63 28 | 6f 70 65 6e 44 6f 63 41 |oseDesc(|openDocA|
|00001ef0| 45 29 3b 0d 09 09 45 4e | 44 3b 0d 09 45 4e 44 3b |E);...EN|D;..END;|
|00001f00| 0d 0d 7b 0d 09 54 68 69 | 73 20 69 73 20 74 68 65 |..{..Thi|s is the|
|00001f10| 20 72 6f 75 74 69 6e 65 | 20 63 61 6c 6c 65 64 20 | routine| called |
|00001f20| 62 79 20 53 65 6c 65 63 | 74 46 69 6c 65 20 74 6f |by Selec|tFile to|
|00001f30| 20 73 65 6e 64 20 61 20 | 73 69 6e 67 6c 65 20 6f | send a |single o|
|00001f40| 64 6f 63 20 74 6f 20 6f | 75 72 73 65 6c 76 65 73 |doc to o|urselves|
|00001f50| 2e 0d 09 0d 09 49 74 20 | 63 61 6c 6c 73 20 74 68 |.....It |calls th|
|00001f60| 65 20 61 62 6f 76 65 20 | 6c 6f 77 20 6c 65 76 65 |e above |low leve|
|00001f70| 6c 20 72 6f 75 74 69 6e | 65 20 74 6f 20 64 6f 20 |l routin|e to do |
|00001f80| 74 68 65 20 64 69 72 74 | 79 20 77 6f 72 6b 20 6f |the dirt|y work o|
|00001f90| 66 20 73 65 6e 64 69 6e | 67 20 74 68 65 20 41 45 |f sendin|g the AE|
|00001fa0| 56 54 20 2d 0d 09 61 6c | 6c 20 77 65 20 64 6f 20 |VT -..al|l we do |
|00001fb0| 68 65 72 65 20 69 73 20 | 62 75 69 6c 64 20 61 20 |here is |build a |
|00001fc0| 41 45 44 65 73 63 4c 69 | 73 74 20 6f 66 20 74 68 |AEDescLi|st of th|
|00001fd0| 65 20 66 69 6c 65 20 74 | 6f 20 62 65 20 6f 70 65 |e file t|o be ope|
|00001fe0| 6e 65 64 2e 0d 7d 0d 09 | 50 52 4f 43 45 44 55 52 |ned..}..|PROCEDUR|
|00001ff0| 45 20 53 65 6e 64 4f 44 | 4f 43 54 6f 53 65 6c 66 |E SendOD|OCToSelf|
|00002000| 20 28 74 68 65 46 69 6c | 65 53 70 65 63 3a 20 46 | (theFil|eSpec: F|
|00002010| 53 53 70 65 63 29 3b 0d | 09 09 56 41 52 0d 09 09 |SSpec);.|..VAR...|
|00002020| 09 65 72 72 3a 20 4f 53 | 45 72 72 3b 0d 09 09 09 |.err: OS|Err;....|
|00002030| 61 6c 69 61 73 4c 69 73 | 74 3a 20 41 45 44 65 73 |aliasLis|t: AEDes|
|00002040| 63 4c 69 73 74 3b 0d 09 | 09 09 61 6c 69 61 73 44 |cList;..|..aliasD|
|00002050| 65 73 63 3a 20 41 45 44 | 65 73 63 3b 0d 09 09 09 |esc: AED|esc;....|
|00002060| 61 6c 69 61 73 48 3a 20 | 41 6c 69 61 73 48 61 6e |aliasH: |AliasHan|
|00002070| 64 6c 65 3b 0d 09 42 45 | 47 49 4e 0d 09 7b 43 72 |dle;..BE|GIN..{Cr|
|00002080| 65 61 74 65 20 74 68 65 | 20 64 65 73 63 4c 69 73 |eate the| descLis|
|00002090| 74 20 74 6f 20 68 6f 6c | 64 20 74 68 65 20 6c 69 |t to hol|d the li|
|000020a0| 73 74 20 6f 66 20 66 69 | 6c 65 73 7d 0d 09 09 65 |st of fi|les}...e|
|000020b0| 72 72 20 3a 3d 20 41 45 | 43 72 65 61 74 65 4c 69 |rr := AE|CreateLi|
|000020c0| 73 74 28 4e 49 4c 2c 20 | 30 2c 20 46 41 4c 53 45 |st(NIL, |0, FALSE|
|000020d0| 2c 20 61 6c 69 61 73 4c | 69 73 74 29 3b 0d 0d 09 |, aliasL|ist);...|
|000020e0| 09 49 46 20 65 72 72 20 | 3d 20 6e 6f 45 72 72 20 |.IF err |= noErr |
|000020f0| 54 48 45 4e 0d 09 09 42 | 45 47 49 4e 0d 09 09 7b |THEN...B|EGIN...{|
|00002100| 46 69 72 73 74 20 77 65 | 20 73 65 74 75 70 20 74 |First we| setup t|
|00002110| 68 65 20 74 79 70 65 20 | 6f 66 20 64 65 73 63 72 |he type |of descr|
|00002120| 69 70 74 6f 72 7d 0d 09 | 09 09 61 6c 69 61 73 44 |iptor}..|..aliasD|
|00002130| 65 73 63 2e 64 65 73 63 | 72 69 70 74 6f 72 54 79 |esc.desc|riptorTy|
|00002140| 70 65 20 3a 3d 20 74 79 | 70 65 41 6c 69 61 73 3b |pe := ty|peAlias;|
|00002150| 0d 0d 09 09 7b 0d 09 09 | 09 4e 6f 77 20 77 65 20 |....{...|.Now we |
|00002160| 61 64 64 20 74 68 65 20 | 66 69 6c 65 20 74 6f 20 |add the |file to |
|00002170| 64 65 73 63 4c 69 73 74 | 20 62 79 20 63 72 65 61 |descList| by crea|
|00002180| 74 69 6e 67 20 61 6e 20 | 61 6c 69 61 73 20 61 6e |ting an |alias an|
|00002190| 64 20 74 68 65 6e 0d 09 | 09 09 61 64 64 69 6e 67 |d then..|..adding|
|000021a0| 20 69 74 20 69 6e 74 6f | 20 74 68 65 20 64 65 73 | it into| the des|
|000021b0| 63 4c 69 73 74 20 75 73 | 69 6e 67 20 41 45 50 75 |cList us|ing AEPu|
|000021c0| 74 44 65 73 63 0d 09 09 | 7d 0d 09 09 09 65 72 72 |tDesc...|}....err|
|000021d0| 20 3a 3d 20 4e 65 77 41 | 6c 69 61 73 28 4e 49 4c | := NewA|lias(NIL|
|000021e0| 2c 20 74 68 65 46 69 6c | 65 53 70 65 63 2c 20 61 |, theFil|eSpec, a|
|000021f0| 6c 69 61 73 48 29 3b 0d | 09 09 09 61 6c 69 61 73 |liasH);.|...alias|
|00002200| 44 65 73 63 2e 64 61 74 | 61 48 61 6e 64 6c 65 20 |Desc.dat|aHandle |
|00002210| 3a 3d 20 48 61 6e 64 6c | 65 28 61 6c 69 61 73 48 |:= Handl|e(aliasH|
|00002220| 29 3b 0d 09 09 09 65 72 | 72 20 3a 3d 20 41 45 50 |);....er|r := AEP|
|00002230| 75 74 44 65 73 63 28 61 | 6c 69 61 73 4c 69 73 74 |utDesc(a|liasList|
|00002240| 2c 20 30 2c 20 61 6c 69 | 61 73 44 65 73 63 29 3b |, 0, ali|asDesc);|
|00002250| 0d 09 09 09 44 69 73 70 | 6f 73 48 61 6e 64 6c 65 |....Disp|osHandle|
|00002260| 28 48 61 6e 64 6c 65 28 | 61 6c 69 61 73 48 29 29 |(Handle(|aliasH))|
|00002270| 3b 0d 0d 09 09 7b 4e 6f | 77 20 63 61 6c 6c 20 74 |;....{No|w call t|
|00002280| 68 65 20 72 65 61 6c 20 | 67 75 74 20 6c 65 76 65 |he real |gut leve|
|00002290| 6c 20 72 6f 75 74 69 6e | 65 20 74 6f 20 64 6f 20 |l routin|e to do |
|000022a0| 74 68 65 20 64 69 72 74 | 79 20 77 6f 72 6b 7d 0d |the dirt|y work}.|
|000022b0| 09 09 09 5f 53 65 6e 64 | 44 6f 63 73 54 6f 53 65 |..._Send|DocsToSe|
|000022c0| 6c 66 28 61 6c 69 61 73 | 4c 69 73 74 29 3b 0d 0d |lf(alias|List);..|
|000022d0| 09 09 7b 5f 53 65 6e 64 | 44 6f 63 73 54 6f 53 65 |..{_Send|DocsToSe|
|000022e0| 6c 66 20 77 69 6c 6c 20 | 64 69 73 70 6f 73 65 20 |lf will |dispose |
|000022f0| 6f 66 20 61 6c 69 61 73 | 4c 69 73 74 20 66 6f 72 |of alias|List for|
|00002300| 20 6d 65 7d 0d 09 09 45 | 4e 44 3b 0d 09 45 4e 44 | me}...E|ND;..END|
|00002310| 3b 0d 0d 0d 09 50 52 4f | 43 45 44 55 52 45 20 53 |;....PRO|CEDURE S|
|00002320| 65 6e 64 51 75 69 74 54 | 6f 53 65 6c 66 3b 0d 09 |endQuitT|oSelf;..|
|00002330| 09 56 41 52 0d 09 09 09 | 65 72 72 3a 20 4f 53 45 |.VAR....|err: OSE|
|00002340| 72 72 3b 0d 09 09 09 74 | 68 65 54 61 72 67 65 74 |rr;....t|heTarget|
|00002350| 3a 20 41 45 41 64 64 72 | 65 73 73 44 65 73 63 3b |: AEAddr|essDesc;|
|00002360| 0d 09 09 09 51 75 69 74 | 41 45 3a 20 41 70 70 6c |....Quit|AE: Appl|
|00002370| 65 45 76 65 6e 74 3b 0d | 09 09 09 72 65 70 6c 79 |eEvent;.|...reply|
|00002380| 41 45 3a 20 41 70 70 6c | 65 45 76 65 6e 74 3b 0d |AE: Appl|eEvent;.|
|00002390| 0d 09 42 45 47 49 4e 0d | 09 7b 0d 09 09 46 69 72 |..BEGIN.|.{...Fir|
|000023a0| 73 74 20 77 65 20 63 72 | 65 61 74 65 20 74 68 65 |st we cr|eate the|
|000023b0| 20 74 61 72 67 65 74 20 | 66 6f 72 20 74 68 65 20 | target |for the |
|000023c0| 65 76 65 6e 74 2e 20 20 | 20 57 65 20 63 61 6c 6c |event.  | We call|
|000023d0| 20 61 6e 6f 74 68 65 72 | 0d 09 09 75 74 69 6c 69 | another|...utili|
|000023e0| 74 79 20 72 6f 75 74 69 | 6e 65 20 66 6f 72 20 63 |ty routi|ne for c|
|000023f0| 72 65 61 74 69 6e 67 20 | 74 68 65 20 74 61 72 67 |reating |the targ|
|00002400| 65 74 2e 0d 09 7d 0d 09 | 09 65 72 72 20 3a 3d 20 |et...}..|.err := |
|00002410| 47 65 74 54 61 72 67 65 | 74 46 72 6f 6d 53 65 6c |GetTarge|tFromSel|
|00002420| 66 28 74 68 65 54 61 72 | 67 65 74 29 3b 0d 09 09 |f(theTar|get);...|
|00002430| 49 46 20 28 65 72 72 20 | 3d 20 6e 6f 45 72 72 29 |IF (err |= noErr)|
|00002440| 20 54 48 45 4e 0d 09 09 | 42 45 47 49 4e 0d 09 09 | THEN...|BEGIN...|
|00002450| 7b 4e 65 78 74 20 77 65 | 20 63 72 65 61 74 65 20 |{Next we| create |
|00002460| 74 68 65 20 41 70 70 6c | 65 20 65 76 65 6e 74 20 |the Appl|e event |
|00002470| 74 68 61 74 20 77 69 6c | 6c 20 6c 61 74 65 72 20 |that wil|l later |
|00002480| 67 65 74 20 73 65 6e 74 | 2e 7d 0d 09 09 09 65 72 |get sent|.}....er|
|00002490| 72 20 3a 3d 20 41 45 43 | 72 65 61 74 65 41 70 70 |r := AEC|reateApp|
|000024a0| 6c 65 45 76 65 6e 74 28 | 6b 43 6f 72 65 45 76 65 |leEvent(|kCoreEve|
|000024b0| 6e 74 43 6c 61 73 73 2c | 20 6b 41 45 51 75 69 74 |ntClass,| kAEQuit|
|000024c0| 41 70 70 6c 69 63 61 74 | 69 6f 6e 2c 20 74 68 65 |Applicat|ion, the|
|000024d0| 54 61 72 67 65 74 2c 20 | 6b 41 75 74 6f 47 65 6e |Target, |kAutoGen|
|000024e0| 65 72 61 74 65 52 65 74 | 75 72 6e 49 44 2c 20 6b |erateRet|urnID, k|
|000024f0| 41 6e 79 54 72 61 6e 73 | 61 63 74 69 6f 6e 49 44 |AnyTrans|actionID|
|00002500| 2c 20 51 75 69 74 41 45 | 29 3b 0d 0d 09 09 09 49 |, QuitAE|);.....I|
|00002510| 46 20 65 72 72 20 3d 20 | 6e 6f 45 72 72 20 54 48 |F err = |noErr TH|
|00002520| 45 4e 0d 09 09 09 42 45 | 47 49 4e 0d 09 09 09 7b |EN....BE|GIN....{|
|00002530| 0d 09 09 09 09 61 6e 64 | 20 73 65 6e 64 20 74 68 |.....and| send th|
|00002540| 65 20 65 76 65 6e 74 0d | 09 09 09 09 53 69 6e 63 |e event.|....Sinc|
|00002550| 65 20 77 65 20 61 72 65 | 20 73 65 6e 64 69 6e 67 |e we are| sending|
|00002560| 20 74 6f 20 6f 75 72 73 | 65 6c 76 65 73 2c 20 6e | to ours|elves, n|
|00002570| 6f 20 6e 65 65 64 20 66 | 6f 72 20 72 65 70 6c 79 |o need f|or reply|
|00002580| 2e 0d 09 09 09 7d 0d 09 | 09 09 09 65 72 72 20 3a |.....}..|...err :|
|00002590| 3d 20 41 45 53 65 6e 64 | 28 51 75 69 74 41 45 2c |= AESend|(QuitAE,|
|000025a0| 20 72 65 70 6c 79 41 45 | 2c 20 6b 41 45 4e 6f 52 | replyAE|, kAENoR|
|000025b0| 65 70 6c 79 20 2b 20 6b | 41 45 43 61 6e 49 6e 74 |eply + k|AECanInt|
|000025c0| 65 72 61 63 74 2c 20 6b | 41 45 4e 6f 72 6d 61 6c |eract, k|AENormal|
|000025d0| 50 72 69 6f 72 69 74 79 | 2c 20 33 36 30 30 2c 20 |Priority|, 3600, |
|000025e0| 4e 49 4c 2c 20 4e 49 4c | 29 3b 0d 0d 09 09 09 7b |NIL, NIL|);.....{|
|000025f0| 0d 09 09 09 09 4e 4f 54 | 45 3a 20 53 69 6e 63 65 |.....NOT|E: Since|
|00002600| 20 77 65 20 61 72 65 20 | 6e 6f 74 20 72 65 71 75 | we are |not requ|
|00002610| 65 73 74 69 6e 67 20 61 | 20 72 65 70 6c 79 2c 20 |esting a| reply, |
|00002620| 77 65 20 64 6f 20 6e 6f | 74 20 6e 65 65 64 20 74 |we do no|t need t|
|00002630| 6f 0d 09 09 09 09 6e 65 | 65 64 20 74 6f 20 64 69 |o.....ne|ed to di|
|00002640| 73 70 6f 73 65 20 6f 66 | 20 74 68 65 20 72 65 70 |spose of| the rep|
|00002650| 6c 79 41 45 2e 20 20 49 | 74 20 69 73 20 74 68 65 |lyAE.  I|t is the|
|00002660| 72 65 20 73 69 6d 70 6c | 79 20 61 73 20 61 20 0d |re simpl|y as a .|
|00002670| 09 09 09 09 70 6c 61 63 | 65 68 6f 6c 64 65 72 2e |....plac|eholder.|
|00002680| 0d 09 09 09 7d 0d 09 09 | 09 45 4e 44 3b 0d 0d 09 |....}...|.END;...|
|00002690| 09 7b 44 69 73 70 6f 73 | 65 20 6f 66 20 74 68 65 |.{Dispos|e of the|
|000026a0| 20 71 75 69 74 20 41 45 | 56 54 20 69 74 73 65 6c | quit AE|VT itsel|
|000026b0| 66 7d 0d 09 09 09 65 72 | 72 20 3a 3d 20 41 45 44 |f}....er|r := AED|
|000026c0| 69 73 70 6f 73 65 44 65 | 73 63 28 51 75 69 74 41 |isposeDe|sc(QuitA|
|000026d0| 45 29 3b 0d 09 09 45 4e | 44 3b 0d 09 45 4e 44 3b |E);...EN|D;..END;|
|000026e0| 0d 0d 45 4e 44 2e 00 00 | 00 00 00 00 00 00 00 00 |..END...|........|
|000026f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002700| 00 00 01 00 00 00 0c a3 | 00 00 0b a3 00 00 00 ad |........|........|
|00002710| 2a 0d 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |*.******|********|
|00002720| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002730| 09 44 53 55 74 69 6c 73 | 2e 70 02 00 00 00 50 61 |.DSUtils|.p....Pa|
|00002740| 72 74 53 49 54 78 00 00 | 00 00 00 00 00 00 00 01 |rtSITx..|........|
|00002750| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00002760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002770| 00 00 a9 80 18 42 00 00 | 00 00 00 00 0d 50 56 20 |.....B..|.....PV |
|00002780| 49 20 53 20 49 20 4f 20 | 4e 20 20 20 48 20 49 20 |I S I O |N   H I |
|00002790| 53 20 54 20 4f 20 52 20 | 59 0d 2a 2a 2a 2a 2a 2a |S T O R |Y.******|
|000027a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000027b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000027c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000027d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000027e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 2a 2a 0d 2a 2a 09 |********|*.**.**.|
|000027f0| 20 20 44 61 74 65 09 09 | 54 69 6d 65 09 41 75 74 |  Date..|Time.Aut|
|00002800| 00 00 00 8e 0e 50 61 73 | 63 61 6c 20 53 79 6d 62 |.....Pas|cal Symb|
|00002810| 6f 6c 73 00 07 44 53 55 | 54 49 4c 53 09 44 53 47 |ols..DSU|TILS.DSG|
|00002820| 4c 4f 42 41 4c 53 09 50 | 52 4f 43 45 53 53 45 53 |LOBALS.P|ROCESSES|
|00002830| 0a 50 50 43 54 4f 4f 4c | 42 4f 58 53 0b 41 50 50 |.PPCTOOL|BOXS.APP|
|00002840| 4c 45 45 56 45 4e 54 53 | 07 41 4c 49 41 53 45 53 |LEEVENTS|.ALIASES|
|00002850| 05 46 49 4c 45 53 0a 47 | 45 53 54 41 4c 54 45 51 |.FILES.G|ESTALTEQ|
|00002860| 55 41 08 50 41 43 4b 41 | 47 45 53 57 08 54 4f 4f |UA.PACKA|GESW.TOO|
|00002870| 4c 49 4e 54 46 57 06 4f | 53 49 4e 54 46 52 09 51 |LINTFW.O|SINTFR.Q|
|00002880| 55 49 43 4b 44 52 41 57 | 08 4d 45 4d 54 59 50 45 |UICKDRAW|.MEMTYPE|
|00002890| 53 53 00 00 09 8c 00 d0 | 07 44 53 55 54 49 4c 53 |SS......|.DSUTILS|
|000028a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028d0| 00 00 00 00 00 00 00 00 | 58 8f 20 4b 01 00 00 74 |........|X. K...t|
|000028e0| ff ff ff ff 00 00 00 00 | 00 00 00 00 01 00 06 56 |........|.......V|
|000028f0| 00 00 00 00 01 00 09 8c | 00 00 00 00 a5 a8 53 0d |........|......S.|
|00002900| 00 73 00 3c 08 25 25 5f | 49 4d 00 ff 0b 43 45 4e |.s.<.%%_|IM...CEN|
|00002910| 54 45 52 41 4c 45 52 54 | 4c 00 00 00 00 00 00 00 |TERALERT|L.......|
|00002920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002940| 00 00 00 00 00 00 00 00 | 00 00 00 00 4f ef 00 0c |........|....O...|
|00002950| 01 00 03 ea 01 00 01 52 | ff ff ff ff 00 00 01 80 |.......R|........|
|00002960| 01 00 04 01 00 01 01 00 | 00 e4 ff ff 00 ac 00 0a |........|........|
|00002970| ff ff 00 00 00 00 00 00 | 00 00 00 ba 05 54 48 45 |........|.....THE|
|00002980| 49 44 52 41 4c 45 52 54 | 4c 00 00 00 00 00 00 00 |IDRALERT|L.......|
|00002990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000029a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000029b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 0c 2f 07 |........|....../.|
|000029c0| ff ff ff ff ff ff ff ff | ff ff ff ff 00 00 00 10 |........|........|
|000029d0| 01 00 02 00 0c df ff ff | 00 02 00 00 00 08 74 64 |........|......td|
|000029e0| 5f 73 77 61 70 00 00 00 | 00 56 0a 45 52 52 4f 52 |_swap...|.V.ERROR|
|000029f0| 41 4c 45 52 54 54 4c 00 | 00 00 00 00 00 00 00 00 |ALERTTL.|........|
|00002a00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a20| 00 00 00 00 00 00 00 00 | 00 00 20 2c 50 40 01 00 |........|.. ,P@..|
|00002a30| 03 0c ff ff ff ff ff ff | ff ff 00 00 01 80 01 00 |........|........|
|00002a40| 04 01 00 01 01 00 01 c2 | ff ff 00 fc 00 0e ff ff |........|........|
|00002a50| 00 00 00 00 00 00 00 00 | 00 08 0c 53 54 52 49 4e |........|...STRIN|
|00002a60| 47 4c 49 53 54 49 44 00 | 00 00 00 00 00 00 00 00 |GLISTID.|........|
|00002a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a90| 00 00 00 00 00 00 00 00 | 00 00 2f 2e 00 08 01 00 |........|../.....|
|00002aa0| 02 30 01 00 02 9e 01 00 | 02 30 00 00 00 10 01 00 |.0......|.0......|
|00002ab0| 02 00 00 0c ff ff 00 02 | 00 00 00 0c 2f 2e ff fc |........|..../...|
|00002ac0| 2f 2e 00 08 4e ba 00 4c | 0d 53 54 52 49 4e 47 49 |/...N..L|.STRINGI|
|00002ad0| 4e 44 45 58 49 44 00 00 | 00 00 00 00 00 00 00 00 |NDEXID..|........|
|00002ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b00| 00 00 00 00 00 00 00 00 | 00 00 4e 56 ff ff ff ff |........|..NV....|
|00002b10| ff ff ff ff 01 00 02 9e | 00 00 00 10 01 00 02 00 |........|........|
|00002b20| 06 40 ff ff 00 02 00 00 | 00 0a 0c 2c 00 05 4f 74 |.@......|...,..Ot|
|00002b30| 66 12 2f 2b 00 08 07 45 | 52 52 4f 52 49 44 4e 44 |f./+...E|RRORIDND|
|00002b40| 45 58 49 44 00 00 00 00 | 00 00 00 00 00 00 00 00 |EXID....|........|
|00002b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b70| 00 00 00 00 00 00 00 08 | 4e ba ff ff ff ff ff ff |........|N.......|
|00002b80| ff ff ff ff ff ff 00 00 | 00 10 01 00 02 00 0f 50 |........|.......P|
|00002b90| ff ff 00 02 00 00 00 08 | ff fc a8 73 4e 5e 4e 75 |........|...sN^Nu|
|00002ba0| 8e 52 00 73 0a 47 45 54 | 41 50 50 4e 41 4d 45 58 |.R.s.GET|APPNAMEX|
|00002bb0| 49 44 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ID......|........|
|00002bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002be0| 00 00 00 00 4e 5e 4e 75 | ff ff ff ff ff ff ff ff |....N^Nu|........|
|00002bf0| ff ff ff ff 00 00 01 80 | 01 00 04 01 00 01 01 00 |........|........|
|00002c00| 03 7c ff ff 00 2c 00 0c | ff ff 00 00 00 00 00 00 |.|...,..|........|
|00002c10| 00 00 00 ce 07 41 50 50 | 4e 41 4d 45 41 4d 45 58 |.....APP|NAMEAMEX|
|00002c20| 49 44 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ID......|........|
|00002c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c50| 00 00 00 00 ff f4 48 6e | ff ff ff ff ff ff ff ff |......Hn|........|
|00002c60| ff ff ff ff 0d 00 08 9e | 01 00 02 01 1f fc ff ff |........|........|
|00002c70| 00 02 00 00 00 08 42 ae | ff e6 60 48 20 2e ff ec |......B.|..`H ...|
|00002c80| 00 22 0c 47 45 54 41 50 | 50 46 53 53 50 45 43 44 |.".GETAP|PFSSPECD|
|00002c90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ca0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002cc0| 00 00 ff ea 20 2e 01 00 | 04 c8 ff ff ff ff ff ff |.... ...|........|
|00002cd0| ff ff 00 00 01 80 01 00 | 04 01 00 01 01 00 04 5a |........|.......Z|
|00002ce0| ff ff 00 e6 00 0c ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00002cf0| 00 6e 07 41 50 50 53 50 | 45 43 53 53 50 45 43 44 |.n.APPSP|ECSSPECD|
|00002d00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d30| 00 00 20 08 67 3a ff ff | ff ff ff ff ff ff ff ff |.. .g:..|........|
|00002d40| ff ff 0b 00 fe fa 01 00 | 02 01 0e ba ff ff 00 02 |........|........|
|00002d50| 00 00 00 08 ff ea 66 18 | 42 67 3f 2c 4f 6a 00 6e |......f.|Bg?,Oj.n|
|00002d60| 11 47 45 54 54 41 52 47 | 45 54 46 52 4f 4d 53 45 |.GETTARG|ETFROMSE|
|00002d70| 4c 46 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |LF......|........|
|00002d80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002da0| 58 8f 4e 5e 01 00 05 a6 | 01 00 08 3e ff ff ff ff |X.N^....|...>....|
|00002db0| 00 00 00 10 01 00 05 01 | 00 01 01 00 05 38 ff ff |........|.....8..|
|00002dc0| 00 e2 00 0c ff ff 00 00 | 00 00 00 00 00 00 00 2c |........|.......,|
|00002dd0| 0a 54 41 52 47 45 54 44 | 45 53 43 52 4f 4d 53 45 |.TARGETD|ESCROMSE|
|00002de0| 4c 46 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |LF......|........|
|00002df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e10| 4f 40 ff e8 ff ff ff ff | ff ff ff ff ff ff ff ff |O@......|........|
|00002e20| 05 00 fb 36 01 00 02 01 | 1f f8 ff ff 00 02 00 00 |...6....|........|
|00002e30| 00 08 90 6e ff f6 3f 00 | 30 2e 00 08 00 6e 16 47 |...n..?.|0....n.G|
|00002e40| 45 54 54 41 52 47 45 54 | 46 52 4f 4d 53 49 47 4e |ETTARGET|FROMSIGN|
|00002e50| 41 54 55 52 45 00 00 00 | 00 00 00 00 00 00 00 00 |ATURE...|........|
|00002e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 48 6e |........|......Hn|
|00002e80| ff f4 ff ff ff ff 01 00 | 06 f2 ff ff ff ff 00 00 |........|........|
|00002e90| 00 10 01 00 05 01 00 01 | 01 00 06 16 ff ff 00 58 |........|.......X|
|00002ea0| 00 10 ff ff 00 00 00 00 | 00 00 00 00 00 5f 0a 50 |........|....._.P|
|00002eb0| 52 4f 43 45 53 53 53 49 | 47 52 4f 4d 53 49 47 4e |ROCESSSI|GROMSIGN|
|00002ec0| 41 54 55 52 45 00 00 00 | 00 00 00 00 00 00 00 00 |ATURE...|........|
|00002ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 ff 80 |........|........|
|00002ef0| 70 08 01 00 06 84 ff ff | ff ff 01 00 06 84 0d 00 |p.......|........|
|00002f00| 0b b8 01 00 02 00 0a 2e | ff ff 00 02 00 00 00 0c |........|........|
|00002f10| 48 6e ff 8c a8 6f 60 2c | 1d 7c 00 01 0a 54 41 52 |Hn...o`,|.|...TAR|
|00002f20| 47 45 54 44 45 53 43 52 | 4f 4d 53 49 47 4e 41 54 |GETDESCR|OMSIGNAT|
|00002f30| 55 52 45 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |URE.....|........|
|00002f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 ff a8 48 6e |........|......Hn|
|00002f60| ff ff ff ff ff ff ff ff | ff ff ff ff 05 00 fb 36 |........|.......6|
|00002f70| 01 00 02 01 1f 8a ff ff | 00 02 00 00 00 08 3d 40 |........|......=@|
|00002f80| ff 92 30 2e ff 92 c1 ee | 00 88 14 47 45 54 54 41 |..0.....|...GETTA|
|00002f90| 52 47 45 54 46 52 4f 4d | 42 52 4f 57 53 45 52 52 |RGETFROM|BROWSERR|
|00002fa0| 45 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |E.......|........|
|00002fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002fc0| 00 00 00 00 00 00 00 00 | 00 00 c1 ee ff 88 ff ff |........|........|
|00002fd0| ff ff ff ff ff ff ff ff | ff ff 00 00 00 10 01 00 |........|........|
|00002fe0| 05 01 00 01 01 00 07 62 | ff ff 00 6e 00 10 ff ff |.......b|...n....|
|00002ff0| 00 00 01 00 00 00 00 00 | 00 2a 09 50 52 4f 4d 50 |........|.*.PROMP|
|00003000| 54 53 54 52 46 52 4f 4d | 42 52 4f 57 53 45 52 52 |TSTRFROM|BROWSERR|
|00003010| 45 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |E.......|........|
|00003020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003030| 00 00 00 00 00 00 00 00 | 00 00 ff fc 20 50 01 00 |........|.... P..|
|00003040| 07 d0 ff ff ff ff 01 00 | 07 d0 0d 00 08 9e 01 00 |........|........|
|00003050| 02 00 01 6e ff ff 00 02 | ff ff ff 00 48 6e ff 84 |...n....|....Hn..|
|00003060| a8 f6 2f 2e ff f8 00 73 | 0a 54 41 52 47 45 54 44 |../....s|.TARGETD|
|00003070| 45 53 43 52 4f 4d 42 52 | 4f 57 53 45 52 52 45 00 |ESCROMBR|OWSERRE.|
|00003080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030a0| 00 00 00 00 00 00 00 00 | 26 5f 4e 5e ff ff ff ff |........|&_N^....|
|000030b0| ff ff ff ff ff ff ff ff | 05 00 fb 36 01 00 02 01 |........|...6....|
|000030c0| 14 20 ff ff 00 02 00 00 | 00 08 20 28 6c 6f 6f 6b |. ......|.. (look|
|000030d0| 20 69 6e 20 00 4f 0e 53 | 45 4e 44 4f 44 4f 43 54 | in .O.S|ENDODOCT|
|000030e0| 4f 53 45 4c 46 52 4f 57 | 53 45 52 52 45 00 00 00 |OSELFROW|SERRE...|
|000030f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003110| 00 00 00 00 00 00 20 6e | ff f4 01 00 09 1c ff ff |...... n|........|
|00003120| ff ff ff ff ff ff 00 00 | 01 80 01 00 04 01 00 01 |........|........|
|00003130| 01 00 08 ae ff ff 00 00 | 00 0c ff ff 00 00 00 46 |........|.......F|
|00003140| 00 00 00 00 00 d8 0b 54 | 48 45 46 49 4c 45 53 50 |.......T|HEFILESP|
|00003150| 45 43 45 4c 46 52 4f 57 | 53 45 52 52 45 00 00 00 |ECELFROW|SERRE...|
|00003160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003180| 00 00 00 00 00 00 67 68 | 42 ae ff ff ff ff ff ff |......gh|B.......|
|00003190| ff ff ff ff ff ff 0b 00 | fe fa 01 00 02 00 10 8f |........|........|
|000031a0| ff ff 00 02 ff ff ff ba | 52 6c 4f d2 70 ff d0 6c |........|RlO.p..l|
|000031b0| 4f d2 00 fc 0e 53 45 4e | 44 51 55 49 54 54 4f 53 |O....SEN|DQUITTOS|
|000031c0| 45 4c 46 52 4f 57 53 45 | 52 52 45 00 00 00 00 00 |ELFROWSE|RRE.....|
|000031d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031f0| 00 00 00 00 30 2e ff d4 | ff ff ff ff ff ff ff ff |....0...|........|
|00003200| ff ff ff ff 00 00 01 80 | 01 00 04 01 00 01 ff ff |........|........|
|00003210| ff ff ff ff 00 0c 00 08 | ff ff 00 00 00 00 00 00 |........|........|
|00003220| 00 00 00 00 00 10 00 01 | 00 01 00 00 00 00 00 00 |........|........|
|00003230| 00 00 00 00 00 00 00 00 | 00 11 00 0f 0c 54 48 49 |........|.....THI|
|00003240| 4e 4b 5f 50 41 53 43 41 | 4c 00 00 00 00 00 e6 a4 |NK_PASCA|L.......|
|00003250| 23 7b b0 a5 a8 53 13 a5 | 6a ea 6b 00 00 ff ff ff |#{...S..|j.k.....|
|00003260| ff 4a 85 08 08 00 00 00 | 00 01 00 01 00 00 4b 00 |.J......|......K.|
|00003270| 0d 00 3e be ce 00 3e f3 | b6 00 0e 00 00 00 3c 00 |..>...>.|......<.|
|00003280| 3f 47 14 00 3f 50 a0 00 | 1b a5 a8 53 0d 00 00 00 |?G..?P..|...S....|
|00003290| 00 00 00 00 00 00 00 a5 | a8 53 03 00 00 00 00 00 |........|.S......|
|000032a0| 00 00 00 00 00 a5 4d da | 64 00 00 00 00 00 00 00 |......M.|d.......|
|000032b0| 00 00 00 a5 4d da 64 00 | 00 00 00 00 00 00 00 00 |....M.d.|........|
|000032c0| 03 a5 7a 52 88 00 00 00 | 00 00 00 00 00 00 00 a5 |..zR....|........|
|000032d0| 7a 52 85 00 00 00 00 00 | 00 00 00 00 00 a4 9a 44 |zR......|.......D|
|000032e0| 2a 00 00 00 00 00 00 00 | 00 00 00 a5 7a 52 83 00 |*.......|....zR..|
|000032f0| 00 00 00 00 00 00 00 00 | 00 a5 7a 52 7e 00 00 00 |........|..zR~...|
|00003300| 00 00 00 00 00 00 00 a5 | 7a 52 76 00 00 00 00 00 |........|zRv.....|
|00003310| 00 00 00 00 02 a5 7a 52 | 69 00 00 00 00 00 00 00 |......zR|i.......|
|00003320| 00 00 00 a5 7a 52 64 00 | 00 00 00 00 00 00 00 00 |....zRd.|........|
|00003330| 03 a5 7a 52 63 00 00 00 | 48 00 09 50 72 6f 46 6f |..zRc...|H..ProFo|
|00003340| 6e 74 00 00 00 01 bf 09 | 4d 50 57 20 53 68 65 6c |nt......|MPW Shel|
|00003350| 6c 05 c3 00 60 da 00 00 | 10 40 80 00 06 00 04 00 |l...`...|.@......|
|00003360| 37 00 58 01 d7 02 63 00 | 37 00 58 01 d7 02 63 a5 |7.X...c.|7.X...c.|
|00003370| 6a ea 6b 00 00 0e 71 00 | 00 10 1b 00 00 0e 71 01 |j.k...q.|......q.|
|00003380| 00 00 00 00 1e 00 37 00 | 58 01 d7 02 63 00 37 00 |......7.|X...c.7.|
|00003390| 58 01 d7 02 63 00 00 0e | 71 00 00 00 00 00 00 00 |X...c...|q.......|
|000033a0| 00 00 00 00 00 01 00 00 | 00 0c a3 00 00 0b a3 00 |........|........|
|000033b0| 00 00 ad 00 33 af c4 11 | a2 00 00 00 1c 00 82 00 |....3...|........|
|000033c0| 01 4d 50 53 52 00 01 00 | 12 75 6e 69 74 00 04 00 |.MPSR...|.unit...|
|000033d0| 2a 03 ed ff ff 00 00 0b | 35 00 00 00 00 03 f0 ff |*.......|5.......|
|000033e0| ff 00 00 0b 81 00 35 af | f4 00 07 00 00 00 00 00 |......5.|........|
|000033f0| 00 00 00 00 00 00 03 00 | 0a 00 00 00 92 00 00 00 |........|........|
|00003400| 00 00 04 00 14 00 00 0a | 22 00 00 00 00 00 05 00 |........|".......|
|00003410| 1a 00 00 0a 36 00 00 00 | 00 00 00 00 24 00 00 0a |....6...|....$...|
|00003420| 4b 00 00 00 00 09 55 6e | 69 74 4e 61 6d 65 73 09 |K.....Un|itNames.|
|00003430| 53 79 6d 62 54 61 62 6c | 65 05 43 6f 6e 64 73 09 |SymbTabl|e.Conds.|
|00003440| 43 6f 6e 64 4e 61 6d 65 | 73 06 48 65 61 64 65 72 |CondName|s.Header|
|00003450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+